10 PRINT"LOCK/UNLOCK FILES"                :
15 INPUT"FILE NAME";N$:IFLEN(N$)<1ORLEN(N$)>16THENPRINT"WRONG LENGTH":GOTO15
20 CLOSE15:OPEN15,8,15:PRINT#15,"I0:":CLOSE5:OPEN5,8,5,"#":T=18:S=1
25 PRINT#15,"U1:"5;0;T;S:PRINT#15,"B-P:5,0":GET#5,T$:GET#5,S$
30 FORI=2TO255STEP32:J=0:X$="":PRINT#15,"B-P:"5;I:PRINT".";
35 GET#5,Y$:X=ASC(Y$+CHR$(0)):GET#5,Y$:GET#5,Y$:IFX<128THEN65
40 GET#5,Y$:IFY$<>CHR$(160)ANDLEN(X$)<16THENX$=X$+Y$:GOTO40
45 IFN$<>X$THEN65
50 X=NOT(XAND64)AND(XOR64):REMFLIP LOCK
55 PRINT#15,"B-P"5;I:PRINT#5,CHR$(X);:PRINT#15,"U2:"5;0;T;S
60 PRINT:PRINT"FILE NOW "MID$("UN",(XAND64)+1,2)"LOCKED":I=999:NEXT:GOTO75
65 NEXT:T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0)):IFT<>0THEN25
70 PRINT" NO MATCH FOUND [146]"
75 INPUT#15,ER,ER$:PRINT"DISK STATUS"ER;ER$:PRINT#15,"I0:":CLOSE15:END